﻿Imports ControleMatricula.Negocio

Public Class FrmCancelamentoMatricula

    Dim db As New DataClassesDataContext()
    Dim RowEspecifica As SPAlunoEspecificaConsultarResult
    Dim IDEspecifica As Integer
    Dim IDAluno As Integer

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
    Private Sub Label3_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label3.Paint

    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
    Private Sub Label2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label2.Paint

    End Sub
    Private Sub FrmCancelamentoMatricula_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call MontarListEspecifica(CInt(Me.txtCDAluno.Text), Me.CheckListEspecifica)

    End Sub
    Function MontarListEspecifica(ByRef CDAluno As Integer, ByRef chkListEspecifica As CheckedListBox)

        Dim ListEspecificaAluno As List(Of SPAlunoEspecificaConsultarResult)
        ListEspecificaAluno = db.SPAlunoEspecificaConsultar(CInt(Me.txtCDAluno.Text), 0).ToList()

        Dim DSEspecifica As DataSet
        DSEspecifica = New DataSet()

        DSEspecifica.Tables.Add(New DataTable("SPAlunoEspecificaConsultar"))

        DSEspecifica.Tables(0).Columns.Add("IDAluno")
        DSEspecifica.Tables(0).Columns.Add("IDEspecifica")
        DSEspecifica.Tables(0).Columns.Add("DEEspecifica")

        For x = 0 To ListEspecificaAluno.Count - 1

            Dim rowEspecifica As DataRow = DSEspecifica.Tables(0).NewRow()

            Dim ListEspecifica As List(Of SPEspecificaConsultarResult)
            ListEspecifica = db.SPEspecificaConsultar(ListEspecificaAluno(x).IDEspecifica, "").ToList()

            rowEspecifica("IDAluno") = ListEspecificaAluno(x).IDAluno
            rowEspecifica("IDEspecifica") = ListEspecificaAluno(x).IDEspecifica
            rowEspecifica("DEEspecifica") = ListEspecifica(0).DEEspecifica

            DSEspecifica.Tables(0).Rows.Add(rowEspecifica)

        Next

        DSEspecifica.AcceptChanges()

        If DSEspecifica.Tables(0).Rows.Count > 0 Then
            chkListEspecifica.DataSource = DSEspecifica.Tables(0)
            chkListEspecifica.DisplayMember = "DEEspecifica"
            chkListEspecifica.ValueMember = "IDEspecifica"
        End If

    End Function

    Private Sub btnCalculoCancelamento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculoCancelamento.Click

        Dim ListaEspecifica As String = ""
        Dim DSPeriodoAula As DataSet
        DSPeriodoAula = New DataSet()

        If Me.CheckListEspecifica.CheckedItems.Count > 0 Then

            DSPeriodoAula.Tables.Add(New DataTable("SPGetPeriodoAula"))

            DSPeriodoAula.Tables(0).Columns.Add("DEEspecifica")
            DSPeriodoAula.Tables(0).Columns.Add("DTPedidoCancelamento")
            DSPeriodoAula.Tables(0).Columns.Add("DTInicioAula")
            DSPeriodoAula.Tables(0).Columns.Add("DTFimAula")
            DSPeriodoAula.Tables(0).Columns.Add("PeriodoContrato")
            DSPeriodoAula.Tables(0).Columns.Add("PeriodoAula")
            DSPeriodoAula.Tables(0).Columns.Add("ValorContratual")
            DSPeriodoAula.Tables(0).Columns.Add("VLPeriodoAula")
            DSPeriodoAula.Tables(0).Columns.Add("VLCancelamento")

            For iCount = 0 To Me.CheckListEspecifica.CheckedItems.Count - 1

                Dim ListPeriodo As List(Of SPGetPeriodoAulaResult)
                ListPeriodo = db.SPGetPeriodoAula(CInt(Me.txtCDAluno.Text), CInt(Me.CheckListEspecifica.CheckedItems.Item(iCount)(1))).ToList()

                Dim row As DataRow = DSPeriodoAula.Tables(0).NewRow()

                row("DEEspecifica") = ListPeriodo(0).DEEspecifica
                row("DTPedidoCancelamento") = ListPeriodo(0).DTPedidoCancelamento
                row("DTInicioAula") = ListPeriodo(0).DTInicioAula
                row("DTFimAula") = ListPeriodo(0).DTFimAula
                row("PeriodoContrato") = ListPeriodo(0).PeriodoContrato
                row("PeriodoAula") = ListPeriodo(0).PeriodoAula
                row("ValorContratual") = ListPeriodo(0).ValorContratual
                row("VLPeriodoAula") = ListPeriodo(0).VLPeriodoAula
                row("VLCancelamento") = ListPeriodo(0).VLCancelamento

                DSPeriodoAula.Tables(0).Rows.Add(row)
                DSPeriodoAula.AcceptChanges()

            Next

            Dim CalculoCancelamento As FrmCalculoCancelamento
            CalculoCancelamento = New FrmCalculoCancelamento

            CalculoCancelamento.DataGridView1.DataSource = DSPeriodoAula
            CalculoCancelamento.DataGridView1.DataMember = "SPGetPeriodoAula"
            CalculoCancelamento.DataGridView1.Columns("DEEspecifica").HeaderText = "Especifica"
            CalculoCancelamento.DataGridView1.Columns("DTPedidoCancelamento").HeaderText = "Dt. Cancelamento"
            CalculoCancelamento.DataGridView1.Columns("DTInicioAula").HeaderText = "Dt. Ini. Aula"
            CalculoCancelamento.DataGridView1.Columns("DTFimAula").HeaderText = "Dt. Fim Aula"
            CalculoCancelamento.DataGridView1.Columns("PeriodoContrato").HeaderText = "Período Contrato"
            CalculoCancelamento.DataGridView1.Columns("PeriodoAula").HeaderText = "Período Aula"
            CalculoCancelamento.DataGridView1.Columns("ValorContratual").HeaderText = "Vl. Contrato"
            CalculoCancelamento.DataGridView1.Columns("VLPeriodoAula").HeaderText = "Vl. Período Aula"
            CalculoCancelamento.DataGridView1.Columns("VLCancelamento").HeaderText = "Vl. Cancelamento"
            CalculoCancelamento.DataGridView1.Columns("DTPedidoCancelamento").Width = 120
            CalculoCancelamento.DataGridView1.Columns("PeriodoContrato").Width = 120
            CalculoCancelamento.DataGridView1.Columns("VLPeriodoAula").Width = 120
            CalculoCancelamento.DataGridView1.Columns("VLCancelamento").Width = 120

            'For i = 0 To DSPeriodoAula.Tables(0).Rows.Count - 1
            '    Dim row As DataRow = CalculoCancelamento.DSGetPeriodoAula.Tables(0).NewRow()
            '    row("DEEspecifica") = DSPeriodoAula.Tables(0).Rows(i)("DEEspecifica")
            '    row("DTPedidoCancelamento") = DSPeriodoAula.Tables(0).Rows(i)("DTPedidoCancelamento")
            '    row("DTInicioAula") = DSPeriodoAula.Tables(0).Rows(i)("DTInicioAula")
            '    row("DTFimAula") = DSPeriodoAula.Tables(0).Rows(i)("DTFimAula")
            '    row("PeriodoContrato") = DSPeriodoAula.Tables(0).Rows(i)("PeriodoContrato")
            '    row("PeriodoAula") = DSPeriodoAula.Tables(0).Rows(i)("PeriodoAula")
            '    row("ValorContratual") = DSPeriodoAula.Tables(0).Rows(i)("ValorContratual")
            '    row("VLPeriodoAula") = DSPeriodoAula.Tables(0).Rows(i)("VLPeriodoAula")
            '    row("VLCancelamento") = DSPeriodoAula.Tables(0).Rows(i)("VLCancelamento")

            '    CalculoCancelamento.DSGetPeriodoAula.Tables(0).Rows.Add(row)
            '    CalculoCancelamento.DSGetPeriodoAula.AcceptChanges()
            'Next

            CalculoCancelamento.Owner = Me
            CalculoCancelamento.ShowDialog()

        End If
    End Sub

    Private Sub btnConfirmar_Click(sender As System.Object, e As System.EventArgs) Handles btnConfirmar.Click

        If MsgBox("Tem certeza que deseja cancelar a matricula deste Aluno?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Sistema Especifica") = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim AlunoSelecionado As List(Of SPAlunoConsultarResult)
        AlunoSelecionado = db.SPAlunoConsultar(Convert.ToInt32(txtCDAluno.Text), 0, "", "", "", "", 0, "", 0, 0).ToList()

        db.SPAlunoAlterar(Convert.ToInt32(txtCDAluno.Text), _
                          Convert.ToInt32(AlunoSelecionado(0).Matricula), _
                          AlunoSelecionado(0).Nome, _
                          AlunoSelecionado(0).CPF, _
                          AlunoSelecionado(0).RG, _
                          AlunoSelecionado(0).Emissor, _
                          AlunoSelecionado(0).UFRG, _
                          AlunoSelecionado(0).DTNascimento, _
                          AlunoSelecionado(0).CEP, _
                          AlunoSelecionado(0).Logradouro, _
                          AlunoSelecionado(0).CompLogradouro, _
                          AlunoSelecionado(0).NumeroLogradouro, _
                          AlunoSelecionado(0).DDDTelefone, _
                          AlunoSelecionado(0).Telefone, _
                          AlunoSelecionado(0).DDDCelular, _
                          AlunoSelecionado(0).Celular, _
                          AlunoSelecionado(0).Email, _
                          Convert.ToBoolean(AlunoSelecionado(0).STCOC), _
                          Convert.ToInt32(AlunoSelecionado(0).TPCurso), _
                          AlunoSelecionado(0).NomeEscola, _
                          AlunoSelecionado(0).Observacao, _
                          False, _
                          AlunoSelecionado(0).IDFuncionarioCadastro, _
                          AlunoSelecionado(0).DTCadastro, _
                          GlobalLogin, _
                          Convert.ToDateTime(Date.Now))

        Me.Close()

    End Sub
End Class